home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00009_play mode control panel scripts.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  4.8 KB  |  134 lines
  1. on PlayActiveVideo pauseIt
  2.   global givState, givBASEMONITORSPRITE, givCONTROLPANELSPRITE, givMAINMONITORSPRITE, givEDITTEXTBOXSPRITE, gSIEventQ, gSIFlush, gSISystem, givPlayingQSL, exitFrame, givMainMonitorRefreshFlag
  3.   MessagePut("play active video")
  4.   set mon to the activeMonitor of givState
  5.   set givPlayingQSL to 1
  6.   set givMainMonitorRefreshFlag to 1
  7.   if count(the questionSelectList of givState) < 1 then
  8.     set clipID to GetClipID(mon)
  9.     if clipID = "none" then
  10.       MessagePut("no clip for active monitor")
  11.       exit
  12.     end if
  13.     if mon = 3 then
  14.       MessagePut("cannot play a transition!")
  15.       exit
  16.     end if
  17.     set the activeVideoID of givState to clipID
  18.     set stopMe to PlayClip(clipID, 0, pauseIt)
  19.     if stopMe = 1 then
  20.       MessagePut("clip stopped in middle")
  21.     else
  22.       MessagePut("clip ended normally")
  23.     end if
  24.     if the mode of givState = #play then
  25.       set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
  26.       set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "play mode stop button"
  27.       updateStage()
  28.     else
  29.       set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
  30.       set the castNum of sprite (givCONTROLPANELSPRITE + 10) to the number of cast "stop button"
  31.       updateStage()
  32.     end if
  33.   else
  34.     if mon = 3 then
  35.       MessagePut("cannot play a transition!")
  36.       exit
  37.     end if
  38.     if the selectListPlaybackPtr of givState > count(the questionSelectList of givState) then
  39.       set the selectListPlaybackPtr of givState to 0
  40.       exit
  41.     end if
  42.     if the selectListPlaybackPtr of givState = 0 then
  43.       set the selectListPlaybackPtr of givState to 1
  44.     end if
  45.     set clipID to getAt(GetMonitorListByNumber(mon), getAt(the questionSelectList of givState, the selectListPlaybackPtr of givState))
  46.     MessagePut("playing item" && the selectListPlaybackPtr of givState && "of the question select list, id" && clipID)
  47.     set stopMe to PlayClip(clipID, 0, pauseIt)
  48.     set givMainMonitorRefreshFlag to 1
  49.     if stopMe = 1 then
  50.       MessagePut("clip stopped in middle")
  51.       if the mode of givState = #play then
  52.         set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
  53.         updateStage()
  54.       else
  55.         set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
  56.         updateStage()
  57.       end if
  58.       set the selectListPlaybackPtr of givState to 0
  59.       exit
  60.     else
  61.       MessagePut("clip ended normally")
  62.       if the mode of givState = #play then
  63.         set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play mode play button"
  64.         updateStage()
  65.       else
  66.         set the castNum of sprite (givCONTROLPANELSPRITE + 9) to the number of cast "play button"
  67.         updateStage()
  68.       end if
  69.       set the selectListPlaybackPtr of givState to the selectListPlaybackPtr of givState + 1
  70.       PlayActiveVideo(pauseIt)
  71.       abort()
  72.     end if
  73.   end if
  74. end
  75.  
  76. on PlayClipNext
  77.   global givState, gSIEventQ, gSIFlush, gSISystem
  78.   set ct to count(the questionSelectList of givState)
  79.   set tmp to the selectListPlaybackPtr of givState
  80.   if ct > 0 then
  81.     set tmp to tmp + 1
  82.     if tmp > ct then
  83.       set tmp to 1
  84.     end if
  85.     MessagePut("incrementing selectListPlaybackPtr to " & tmp)
  86.     set the selectListPlaybackPtr of givState to tmp
  87.     SetMonitorPtr(givState, the activeMonitor of givState, getAt(the questionSelectList of givState, tmp))
  88.   end if
  89.   if the activeVideoMode of givState = #play then
  90.     MessagePut("stop the running movie...")
  91.     EndBufferingEvents()
  92.     DVPause()
  93.     PlayActiveVideo(#play)
  94.     MessagePut("abort called after next clip started -- play")
  95.     abort()
  96.   end if
  97.   if the activeVideoMode of givState = #pause then
  98.     EndBufferingEvents()
  99.     PlayActiveVideo(#pause)
  100.     MessagePut("abort called after next clip started -- pause")
  101.     abort()
  102.   end if
  103. end
  104.  
  105. on PlayClipPrevious
  106.   global givState, gSIEventQ, gSISystem
  107.   set ct to count(the questionSelectList of givState)
  108.   set tmp to the selectListPlaybackPtr of givState
  109.   if ct > 0 then
  110.     set tmp to tmp - 1
  111.     if tmp = 0 then
  112.       set tmp to ct
  113.     end if
  114.     MessagePut("decrementing selectListPlaybackPtr to " & tmp)
  115.     set the selectListPlaybackPtr of givState to tmp
  116.     SetMonitorPtr(givState, the activeMonitor of givState, getAt(the questionSelectList of givState, tmp))
  117.   end if
  118.   if the activeVideoMode of givState = #play then
  119.     MessagePut("stop the running movie...")
  120.     EndBufferingEvents()
  121.     DVPause()
  122.     set the activeVideoMode of givState to #pause
  123.     PlayActiveVideo(#play)
  124.     MessagePut("abort called after next clip started -- play")
  125.     abort()
  126.   end if
  127.   if the activeVideoMode of givState = #pause then
  128.     EndBufferingEvents()
  129.     PlayActiveVideo(#pause)
  130.     MessagePut("abort called after next clip started -- pause")
  131.     abort()
  132.   end if
  133. end
  134.